@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Show_up_counter]=[Show_up_counter]+[1]
@NullResponse @RapidCodeOff
@NullResponse @EndTease

(Check_rules)
Before we start #AnswerQuestions

(Rule1_part1)
Did you watch any porn #Video?
[yes] How many? @InputVar[Number_porn_videos]
[no] #Good

(Rule1_part2)
Did you play any webtease?
[yes] How many? @InputVar[Number_webteases]
[no] #Good

(Rule2_part1)
Did you #Stroke?
[yes] How many times? @InputVar[Number_times_stroke]
[no] #Good

(Rule2_part2)
Did you have sex?
[yes] How many times? @InputVar[Number_times_sex]
[no] #Good

(Rule2_part3)
Did you #Cum?
[yes] How many times? @InputVar[Number_times_cum]
[no] #Good

(Sub_came)
@NullResponse @RapidCodeOn
@NullResponse @If[Number_times_cum]>[0]Then(Came)
@NullResponse @Goto(Show_up)
@NullResponse @RapidCodeOff

(Came)
Awww... #RandomName...
You really disappoint me... @Chance50(Mood_down)

(Show_up)
@NullResponse @RapidCodeOn
@NullResponse @If[Show_up_counter]=[1]Then(Showed_up_once)
@NullResponse @If[Show_up_counter]>[1]Then(Showed_up_more_than_once)
@NullResponse @Goto(Number_of_violations)
@NullResponse @RapidCodeOff

(Showed_up_once)
I have a little surprise for you
I've been keeping an eye on you since last time we saw each other
and I counted @ShowVar[Show_up_counter] attempt to start a session @Goto(Number_of_violations)

(Showed_up_more_than_once)
I have a little surprise for you
I've been keeping an eye on you since last time we saw each other
and I counted @ShowVar[Show_up_counter] attempts to start a session @Goto(Number_of_violations)

(Mood_up)
@NullResponse @RapidCodeOn
@NullResponse @MoodUp @Goto(End)
@NullResponse @RapidCodeOff

(Mood_down)
@NullResponse @RapidCodeOn
@NullResponse @MoodDown @SetFlag(Mood_gone_down) @Goto(Show_up)
@NullResponse @RapidCodeOff

(Number_of_violations)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]+[Number_porn_videos]
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]+[Show_up_counter]
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]+[Number_webteases]
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]+[Number_times_stroke]
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]+[Number_times_sex]
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]+[Number_times_cum]
@NullResponse @If[Number_of_violations]=[0]Then(No_violations)
@NullResponse @If[Number_of_violations]=[1]Then(One_violation)
@NullResponse @If[Number_of_violations]>[1]Then(Many_violations)
@NullResponse @RapidCodeOff

(No_violations)
I'm so proud of you #SubName! You didn't broke any of my rules; let's start the session! @Chance50(Mood_up) @Goto(End)

(One_violation)
You broke my rules @ShowVar[Number_of_violations] time @Goto(Punishment)

(Many_violations)
You broke my rules @ShowVar[Number_of_violations] times @Goto(Punishment)

(Punishment)
Let me explain what's #Gonna happen now
For every time you broke the rules you'll face a round of punishment
It's simple as that
Now let's start

(Loop_punishment)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Round]=[Round]+[1]
@NullResponse @RapidCodeOff
Round @ShowVar[Round]
@CBTBalls
@NullResponse @Wait(#Random(5,10))
@CBTCock
@NullResponse @Wait(#Random(3,7))
@CBTBalls
@NullResponse @Wait(#Random(1,4))
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Number_of_violations]=[Number_of_violations]-[1]
@NullResponse @If[Number_of_violations]=[0]Then(End_punishment)
@NullResponse @RapidCodeOff

(End_punishment)
That was the last round
Now that I'm done punishing your #Cock and your #Balls I'll start teasing them #Grin #EmoteHappy @CheckFlag(Mood_gone_down,CBT_mood_up) @Goto(End)

(End)
@NullResponse @RapidCodeOn
@NullResponse @DeleteFlag(Flag_not_show_up,Mood_gone_down)
@NullResponse @DeleteVar[Not_show_up,Show_up_counter,Number_porn_videos,Number_webteases,Number_times_stroke,Number_times_sex,Number_times_cum,Number_of_violations,Round]
@NullResponse @RapidCodeOff
@NullResponse @End

(CBT_mood_up)
@NullResponse @RapidCodeOn
@NullResponse @Chance25(Mood_up)
@NullResponse @RapidCodeOff